home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / edit_topic < prev    next >
Encoding:
Text File  |  2002-10-28  |  357 b   |  25 lines

  1. #
  2. # Felony asked me for this, so here you go! =)
  3. #
  4. alias edit_topic
  5. {
  6.     ^local thetopic
  7.     ^stack push on 333
  8.     ^stack push on 332
  9.     ^stack push on 331
  10.     ^on ^333 * #
  11.     ^on ^332 * {
  12.         bless
  13.         @ thetopic = [$2-]
  14.     }
  15.     ^on ^331 * #
  16.     ^topic
  17.     ^wait
  18.     ^parsekey erase_line
  19.     ^xtype -literal /topic $thetopic
  20.     stack pop on 331
  21.     stack pop on 332
  22.     stack pop on 333
  23. }
  24. #hop'y2k
  25.